home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 193 / 193.d81 / hello connect (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  984b  |  30 lines
  1. 3 poke53281,0:poke53280,0
  2. 4 poke32767,13:poke53275,0:poke53269,0
  3. 5 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or3
  4. 10 poke53272,21:poke648,4:poke55,0:poke56,160:poke51,0:poke52,160
  5. 15 poke53265,11:gosub500:poke53265,27
  6. 20 sys57812"mr.mouse 2+ 1000",dv:poke780,0:poke781,0:poke782,16:sys65493
  7. 21 bl=4096+54:b0=4096+177
  8. 22 sysb0,"features",dv,96*256
  9. 23 sysbl,"frodo.ml",dv,41*256
  10. 24 sysbl,"music",dv,106*256
  11. 25 q=57:poke44,q:pokeq*256,0
  12. 29 r$=chr$(13)+"r[213]"+chr$(13):q$=chr$(34)
  13. 30 print"[144]load"q$"b.frodo"q$","dv""
  14. 32 forx=1to4:poke630+x,asc(mid$(r$,x)):next:
  15. 36 poke198,4
  16. 40 end
  17. 500 dv=peek(186):ifdv<8thendv=8
  18. 505 print"[147]":a$="                                     "
  19. 510 b$="[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
  20. 515 close2:open2,dv,2,":features":get#2,i$,i$:input#2,i$:close2
  21. 520 poke214,10:print:poke646,15:fori=1to10:print""b$:next
  22. 530 poke214,12:print:poke646,11:fori=1to7:printtab(3)left$(b$,33):next
  23. 540 poke214,11:print:poke646,3:fori=1to7:printtab(4)""left$(b$,33):next
  24. 550 poke214,13:print:poke646,7:fori=1to3:printtab(6)""left$(a$,29):next
  25. 560 poke214,14:print:printtab(09)"[158][194]ack to e[204][207][193][196][211][212][193][210] "i$
  26. 580 return
  27. 59999 end
  28. 60000 dv=peek(186):ifdv<8thenstop
  29. 60001 open15,dv,15,"s0:hello connect":close15:save"0:hello connect",dv
  30.